home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / ini_io.exe / INITEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-10-11  |  1.2 KB  |  24 lines
  1. DECLARE FUNCTION GetPrivateProfileInt (BYVAL lpApplicationName AS STRING, BYVAL lpKeyName AS STRING, BYVAL nDefault AS INTEGER, BYVAL lpFileName AS STRING) AS INTEGER
  2. DECLARE FUNCTION GetPrivateProfileString (BYVAL lpApplicationName AS STRING, BYVAL lpKeyName AS STRING, BYVAL lpDefault AS STRING, lpReturnedString AS STRING, BYVAL nSize AS INTEGER, BYVAL lpFileName AS STRING) AS INTEGER
  3. DECLARE FUNCTION WritePrivateProfileString (BYVAL lpApplicationName AS STRING, BYVAL lpKeyName AS STRING, BYVAL lpString AS STRING, BYVAL lpFileName AS STRING) AS INTEGER
  4. REM $INCLUDE: 'C:\VBDOS\CONSTANT.BI'
  5. CLS
  6. DIM TestSection AS STRING
  7. DIM TestLine AS STRING
  8. DIM TestValue AS STRING
  9. DIM TestFile AS STRING
  10. DIM RetValue AS STRING
  11. TestSection = "Configuration"
  12. TestLine = "SomeSetting"
  13. TestValue = "12345678"
  14. TestFile = "INI_IO.INI"
  15. RetValue = ""
  16. a% = WritePrivateProfileString(TestSection, TestLine, TestValue, TestFile)
  17. IF a% = 0 THEN
  18.           MSGBOX "Error using 'WritePrivateProfileString'", 0, "INI Write/Read Test"
  19.      ELSE
  20.           b% = GetPrivateProfileString(TestSection, TestLine, "", RetValue, 64, TestFile)
  21.           MSGBOX ("Wrote Value = " + TestValue + ", Returned Value = " + RetValue), 0, "INI Write/Read Test"
  22. END IF
  23.  
  24.